home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ IE Clear Cookies.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-02-20  |  2.5 KB  |  98 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Internet Explorer\Clear"
  5. "NAME"="Clear Cookies"
  6. "VERSION"="1.04"
  7. "-WARNING"="1"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear IE Cookies"
  10. "TEXT 2"="Clear IE Cookies (total erase!)"
  11. "DESCRIPTION 1"="This plug-in will totally erase any cookies in your Internet Explorer."
  12. "DESCRIPTION 2"="If you select to open the second option, every file found (except INDEX.DAT) will be filled with garbage before deleting so even an undelete does not show what was inside the files."
  13. "DESCRIPTION 3"="IMPORTANT! Close Internet Explorer before using any of these functions!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for the help."
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies"
  21.  
  22. Sub Plugin_Initialize 
  23. End Sub
  24.  
  25. Sub Plugin_CheckData(ElementIndex)
  26. End Sub
  27.  
  28. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  if ElementIndex=1 then 
  30.     Call DoWork(false)  
  31.  else
  32.     Call DoWork(true)
  33.  end if
  34.  
  35.  
  36.  
  37.  
  38. End Sub
  39.  
  40. Sub DoWork(EraseTotally)
  41.     s=RegReadValue(sP)
  42.     sBasePath=s
  43.  
  44.     if folderexists(sBasePath) then
  45.        'okay, now look for any remaing files...
  46.        Call KillDir(sBasePath,EraseTotally,false)
  47.                    
  48.        'done!
  49.        msginformation "IE's Cookies cleared!"
  50.     else
  51.        msgerror "Unable to locate Cookie folder - nothing done!"
  52.     end if
  53. end Sub
  54.  
  55.  
  56. Sub KillDir(DirName,EraseTotally,KillDirAlso)
  57.  
  58.  iC=FileEnum(DirName & "\*.*")
  59.  
  60.  for i=1 to iC 
  61.      sFile=FileEnumElement(i)
  62.      'index.dat can not be earased, always locked for writing... grr..
  63.      if lcase(right(sFile,9))<>"index.dat" then
  64.    
  65.         if EraseTotally then
  66.            lC=TxtOpen(sFile)
  67.  
  68.            'replace contents of file    
  69.            for l=1 to lC 
  70.                Call TxtSetLine(l,"-")
  71.            next
  72.          
  73.            'desktop.ini is special case..
  74.            if right(sFile,11)="desktop.ini" then
  75.               Call FileSetAttribute(sFile,"R-")
  76.               Call FileSetAttribute(sFile,"H-")
  77.               Call FileSetAttribute(sFile,"S-")
  78.            end if
  79.  
  80.           Call TxtSave()
  81.         end if
  82.  
  83.         'now kill the file
  84.         FileDelete(sFile)
  85.      end if               
  86.  
  87.  next 
  88.  
  89.  if KillDirAlso=true then
  90.     FolderDelete(DirName)
  91.  end if
  92. End Sub
  93.  
  94.  
  95. Sub Plugin_Terminate 
  96. End Sub
  97.  
  98.